Fossil_Database <- data.frame("Fossil_Type" = c("Ammonites", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "Mazon_Creek", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Name" = c("", "MOLAM0001", "MOLAM0002", "MOLAM0003", "MOLAM0004", "MOLAM0005", "MOLAM0006", "MOLAM0007", "MOLAM0008", "MOLAM0009", "MOLAM0010", "MOLAM0011", "MOLAM0012", "MOLAM0013", "MOLAM0014", "MOLAM0015", "MOLAM0016", "MOLAM0017", "MOLAM0018", "", "MAZCRK0001", "MAZCRK0002", "MAZCRK0003", "MAZCRK0004", "MAZCRK0005", "MAZCRK0006", "MAZCRK0007", "MAZCRK0008", "MAZCRK0009", "MAZCRK0010", "MAZCRK0011", "MAZCRK0012", "MAZCRK0013", "MAZCRK0014", "MAZCRK0015", "MAZCRK0016", "MAZCRK0017", "MAZCRK0018", "MAZCRK0019", "MAZCRK0020", "MAZCRK0021", "MAZCRK0022", "MAZCRK0023", "MAZCRK0024", "MAZCRK0025", "MAZCRK0026", "MAZCRK0027", "MAZCRK0028", "MAZCRK0029", "MAZCRK0030", "MAZCRK0031", "MAZCRK0032", "MAZCRK0033", "MAZCRK0034", "MAZCRK0035", "MAZCRK0036", "MAZCRK0037"),
"Genus" = c("", "Graspedites", "N/A", "Polished Belemnite", "Eleganticeras", "Metalegoceras", "N/A", "Hypocladiscites", "N/A", "Lanceolites", "54", "Tissotia", "Microdoceras", "Laevaptychus", "N/A", "N/A", "Muensteroceras", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Species" = c("", "N/A", "N/A", "N/A", "elegantulum", "tschernyschewi", "N/A", "subaratus_plantus", "N/A", "compactus", "N/A", "obesa", "N/A", "latus", "N/A", "N/A", "parallelum", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Country" = c("", "Russia", "Nepal", "Russia", "England", "Indonesia", "United_Kingdom", "Indonesia", "United_States_of_America", "Indonesia", "Morocco", "Peru", "United_Kingdom", "England", "United_Kingdom", "United_States_of_America", "United_States_of_America", "United_Kingdom", "Morocco", "", "United_States_of_America", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"State_or_Region" = c("", "N/A", "Annapurna, Mustang", "Tarstan Region", "North Yorkshire, Whitby Cannonball", "Timor, Noe Bihati", "Charmouth", "Timor, Noe Bihati", "Wyoming", "Timor, Noe Bihati", "N/A", "Cajamarca", "Black Ven, Lyme Regis", "Westbury, Wiltshire", "North Yorkshire, Nr. Whitby Kettleness", "Little Glasses Creek, Marshall County, Little Glasses Creek, Oklahoma", "Jackson County, Indiana", "Charmouth", "N/A", "", "Illinois", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Formation" = c("", "N/A","N/A","N/A","N/A","N/A", "N/A","N/A","N/A","N/A","N/A", "N/A","N/A","N/A","N/A", "N/A", "Rockford_Limestone", "N/A", "N/A", "", "Mazon_Creek", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Time_Period" = c("", "Jurassic", "Jurassic", "Late Jurassic", "Lower Jurassic", "Lower Permian", "N/A", "Norian, Triassic", "N/A", "Lower Triassic Smithian", "N/A", "Upper Cretaceous Coniacian", "N/A", "Kimmeridgian Jurassic", "Bifrons Zone, Commune Subzone, Upper Lias, Lower Jurassic", "N/A", "N/A", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Dates" = c("", "N/A", "~185 MYA", "165 MYA", "180 MYA", "N/A", "N/A", "227-208.5 MYA", "N/A", "N/A", "N/A", "N/A", "N/A", "157 MYA", "180 MYA", "N/A", "325 MYA", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Value" = c("", "N/A","N/A","N/A","N/A","N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Collector" = c("", "R. Unzha Kostroma", "N/A", "Dr. Utt", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "N. Zachariades", "N/A", "Dr. Utt", "N/A", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Common_Name" = c("", "N/A", "Shaligram", "polished Belemite", "N/A", "N/A", "N/A", "N/A", "Belemite Guard", "N/A", "Goniatite", "N/A", "N/A", "N/A", "Whitby Snakestone", "N/A", "N/A", "N/A", "Goniatite", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Descriptor" = c("", "N/A","N/A","N/A","N/A","N/A", "N/A", "Mojsisovics", "N/A", "N/A", "N/A", "N/A", "N/A", "Parkinson", "N/A", "N/A", "N/A", "N/A", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Miscellaneous" = c("", "N/A", "Kali_Gandaki_River", "N/A", "polished upper lias, falciferum subzone", "N/A", "Belemite", "N/A", "N/A", "N/A", "N/A", "N/A", "N/A", "aptychii: paired calcereous plates forming part of the jaw apparatus in certain ammonite families", "N/A", "Rhynocholites", "Mississippian Pd", "Pyritized", "N/A", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", ""),
"Images" = c("MOLAM001.png"))
library("data.table")
data.table(Fossil_Database)
## Fossil_Type Name Genus Species
## 1: Ammonites
## 2: MOLAM0001 Graspedites N/A
## 3: MOLAM0002 N/A N/A
## 4: MOLAM0003 Polished Belemnite N/A
## 5: MOLAM0004 Eleganticeras elegantulum
## 6: MOLAM0005 Metalegoceras tschernyschewi
## 7: MOLAM0006 N/A N/A
## 8: MOLAM0007 Hypocladiscites subaratus_plantus
## 9: MOLAM0008 N/A N/A
## 10: MOLAM0009 Lanceolites compactus
## 11: MOLAM0010 54 N/A
## 12: MOLAM0011 Tissotia obesa
## 13: MOLAM0012 Microdoceras N/A
## 14: MOLAM0013 Laevaptychus latus
## 15: MOLAM0014 N/A N/A
## 16: MOLAM0015 N/A N/A
## 17: MOLAM0016 Muensteroceras parallelum
## 18: MOLAM0017 N/A N/A
## 19: MOLAM0018 N/A N/A
## 20: Mazon_Creek
## 21: MAZCRK0001
## 22: MAZCRK0002
## 23: MAZCRK0003
## 24: MAZCRK0004
## 25: MAZCRK0005
## 26: MAZCRK0006
## 27: MAZCRK0007
## 28: MAZCRK0008
## 29: MAZCRK0009
## 30: MAZCRK0010
## 31: MAZCRK0011
## 32: MAZCRK0012
## 33: MAZCRK0013
## 34: MAZCRK0014
## 35: MAZCRK0015
## 36: MAZCRK0016
## 37: MAZCRK0017
## 38: MAZCRK0018
## 39: MAZCRK0019
## 40: MAZCRK0020
## 41: MAZCRK0021
## 42: MAZCRK0022
## 43: MAZCRK0023
## 44: MAZCRK0024
## 45: MAZCRK0025
## 46: MAZCRK0026
## 47: MAZCRK0027
## 48: MAZCRK0028
## 49: MAZCRK0029
## 50: MAZCRK0030
## 51: MAZCRK0031
## 52: MAZCRK0032
## 53: MAZCRK0033
## 54: MAZCRK0034
## 55: MAZCRK0035
## 56: MAZCRK0036
## 57: MAZCRK0037
## Fossil_Type Name Genus Species
## Country
## 1:
## 2: Russia
## 3: Nepal
## 4: Russia
## 5: England
## 6: Indonesia
## 7: United_Kingdom
## 8: Indonesia
## 9: United_States_of_America
## 10: Indonesia
## 11: Morocco
## 12: Peru
## 13: United_Kingdom
## 14: England
## 15: United_Kingdom
## 16: United_States_of_America
## 17: United_States_of_America
## 18: United_Kingdom
## 19: Morocco
## 20:
## 21: United_States_of_America
## 22:
## 23:
## 24:
## 25:
## 26:
## 27:
## 28:
## 29:
## 30:
## 31:
## 32:
## 33:
## 34:
## 35:
## 36:
## 37:
## 38:
## 39:
## 40:
## 41:
## 42:
## 43:
## 44:
## 45:
## 46:
## 47:
## 48:
## 49:
## 50:
## 51:
## 52:
## 53:
## 54:
## 55:
## 56:
## 57:
## Country
## State_or_Region
## 1:
## 2: N/A
## 3: Annapurna, Mustang
## 4: Tarstan Region
## 5: North Yorkshire, Whitby Cannonball
## 6: Timor, Noe Bihati
## 7: Charmouth
## 8: Timor, Noe Bihati
## 9: Wyoming
## 10: Timor, Noe Bihati
## 11: N/A
## 12: Cajamarca
## 13: Black Ven, Lyme Regis
## 14: Westbury, Wiltshire
## 15: North Yorkshire, Nr. Whitby Kettleness
## 16: Little Glasses Creek, Marshall County, Little Glasses Creek, Oklahoma
## 17: Jackson County, Indiana
## 18: Charmouth
## 19: N/A
## 20:
## 21: Illinois
## 22:
## 23:
## 24:
## 25:
## 26:
## 27:
## 28:
## 29:
## 30:
## 31:
## 32:
## 33:
## 34:
## 35:
## 36:
## 37:
## 38:
## 39:
## 40:
## 41:
## 42:
## 43:
## 44:
## 45:
## 46:
## 47:
## 48:
## 49:
## 50:
## 51:
## 52:
## 53:
## 54:
## 55:
## 56:
## 57:
## State_or_Region
## Formation
## 1:
## 2: N/A
## 3: N/A
## 4: N/A
## 5: N/A
## 6: N/A
## 7: N/A
## 8: N/A
## 9: N/A
## 10: N/A
## 11: N/A
## 12: N/A
## 13: N/A
## 14: N/A
## 15: N/A
## 16: N/A
## 17: Rockford_Limestone
## 18: N/A
## 19: N/A
## 20:
## 21: Mazon_Creek
## 22:
## 23:
## 24:
## 25:
## 26:
## 27:
## 28:
## 29:
## 30:
## 31:
## 32:
## 33:
## 34:
## 35:
## 36:
## 37:
## 38:
## 39:
## 40:
## 41:
## 42:
## 43:
## 44:
## 45:
## 46:
## 47:
## 48:
## 49:
## 50:
## 51:
## 52:
## 53:
## 54:
## 55:
## 56:
## 57:
## Formation
## Time_Period Dates
## 1:
## 2: Jurassic N/A
## 3: Jurassic ~185 MYA
## 4: Late Jurassic 165 MYA
## 5: Lower Jurassic 180 MYA
## 6: Lower Permian N/A
## 7: N/A N/A
## 8: Norian, Triassic 227-208.5 MYA
## 9: N/A N/A
## 10: Lower Triassic Smithian N/A
## 11: N/A N/A
## 12: Upper Cretaceous Coniacian N/A
## 13: N/A N/A
## 14: Kimmeridgian Jurassic 157 MYA
## 15: Bifrons Zone, Commune Subzone, Upper Lias, Lower Jurassic 180 MYA
## 16: N/A N/A
## 17: N/A 325 MYA
## 18: N/A N/A
## 19: N/A N/A
## 20:
## 21:
## 22:
## 23:
## 24:
## 25:
## 26:
## 27:
## 28:
## 29:
## 30:
## 31:
## 32:
## 33:
## 34:
## 35:
## 36:
## 37:
## 38:
## 39:
## 40:
## 41:
## 42:
## 43:
## 44:
## 45:
## 46:
## 47:
## 48:
## 49:
## 50:
## 51:
## 52:
## 53:
## 54:
## 55:
## 56:
## 57:
## Time_Period Dates
## Value Collector Common_Name Descriptor
## 1:
## 2: N/A R. Unzha Kostroma N/A N/A
## 3: N/A N/A Shaligram N/A
## 4: N/A Dr. Utt polished Belemite N/A
## 5: N/A N/A N/A N/A
## 6: N/A N/A N/A N/A
## 7: N/A N/A N/A N/A
## 8: N/A N/A N/A Mojsisovics
## 9: N/A N/A Belemite Guard N/A
## 10: N/A N/A N/A N/A
## 11: N/A N/A Goniatite N/A
## 12: N/A N/A N/A N/A
## 13: N/A N/A N/A N/A
## 14: N/A N. Zachariades N/A Parkinson
## 15: N/A N/A Whitby Snakestone N/A
## 16: N/A Dr. Utt N/A N/A
## 17: N/A N/A N/A N/A
## 18: N/A N/A N/A N/A
## 19: N/A N/A Goniatite N/A
## 20: N/A
## 21:
## 22:
## 23:
## 24:
## 25:
## 26:
## 27:
## 28:
## 29:
## 30:
## 31:
## 32:
## 33:
## 34:
## 35:
## 36:
## 37:
## 38:
## 39:
## 40:
## 41:
## 42:
## 43:
## 44:
## 45:
## 46:
## 47:
## 48:
## 49:
## 50:
## 51:
## 52:
## 53:
## 54:
## 55:
## 56:
## 57:
## Value Collector Common_Name Descriptor
## Miscellaneous
## 1:
## 2: N/A
## 3: Kali_Gandaki_River
## 4: N/A
## 5: polished upper lias, falciferum subzone
## 6: N/A
## 7: Belemite
## 8: N/A
## 9: N/A
## 10: N/A
## 11: N/A
## 12: N/A
## 13: N/A
## 14: aptychii: paired calcereous plates forming part of the jaw apparatus in certain ammonite families
## 15: N/A
## 16: Rhynocholites
## 17: Mississippian Pd
## 18: Pyritized
## 19: N/A
## 20:
## 21:
## 22:
## 23:
## 24:
## 25:
## 26:
## 27:
## 28:
## 29:
## 30:
## 31:
## 32:
## 33:
## 34:
## 35:
## 36:
## 37:
## 38:
## 39:
## 40:
## 41:
## 42:
## 43:
## 44:
## 45:
## 46:
## 47:
## 48:
## 49:
## 50:
## 51:
## 52:
## 53:
## 54:
## 55:
## 56:
## 57:
## Miscellaneous
## Images
## 1: MOLAM001.png
## 2: MOLAM001.png
## 3: MOLAM001.png
## 4: MOLAM001.png
## 5: MOLAM001.png
## 6: MOLAM001.png
## 7: MOLAM001.png
## 8: MOLAM001.png
## 9: MOLAM001.png
## 10: MOLAM001.png
## 11: MOLAM001.png
## 12: MOLAM001.png
## 13: MOLAM001.png
## 14: MOLAM001.png
## 15: MOLAM001.png
## 16: MOLAM001.png
## 17: MOLAM001.png
## 18: MOLAM001.png
## 19: MOLAM001.png
## 20: MOLAM001.png
## 21: MOLAM001.png
## 22: MOLAM001.png
## 23: MOLAM001.png
## 24: MOLAM001.png
## 25: MOLAM001.png
## 26: MOLAM001.png
## 27: MOLAM001.png
## 28: MOLAM001.png
## 29: MOLAM001.png
## 30: MOLAM001.png
## 31: MOLAM001.png
## 32: MOLAM001.png
## 33: MOLAM001.png
## 34: MOLAM001.png
## 35: MOLAM001.png
## 36: MOLAM001.png
## 37: MOLAM001.png
## 38: MOLAM001.png
## 39: MOLAM001.png
## 40: MOLAM001.png
## 41: MOLAM001.png
## 42: MOLAM001.png
## 43: MOLAM001.png
## 44: MOLAM001.png
## 45: MOLAM001.png
## 46: MOLAM001.png
## 47: MOLAM001.png
## 48: MOLAM001.png
## 49: MOLAM001.png
## 50: MOLAM001.png
## 51: MOLAM001.png
## 52: MOLAM001.png
## 53: MOLAM001.png
## 54: MOLAM001.png
## 55: MOLAM001.png
## 56: MOLAM001.png
## 57: MOLAM001.png
## Images
data
## function (..., list = character(), package = NULL, lib.loc = NULL,
## verbose = getOption("verbose"), envir = .GlobalEnv, overwrite = TRUE)
## {
## fileExt <- function(x) {
## db <- grepl("\\.[^.]+\\.(gz|bz2|xz)$", x)
## ans <- sub(".*\\.", "", x)
## ans[db] <- sub(".*\\.([^.]+\\.)(gz|bz2|xz)$", "\\1\\2",
## x[db])
## ans
## }
## names <- c(as.character(substitute(list(...))[-1L]), list)
## if (!is.null(package)) {
## if (!is.character(package))
## stop("'package' must be a character string or NULL")
## if (any(package %in% "base"))
## warning("datasets have been moved from package 'base' to package 'datasets'")
## if (any(package %in% "stats"))
## warning("datasets have been moved from package 'stats' to package 'datasets'")
## package[package %in% c("base", "stats")] <- "datasets"
## }
## paths <- find.package(package, lib.loc, verbose = verbose)
## if (is.null(lib.loc))
## paths <- c(path.package(package, TRUE), if (!length(package)) getwd(),
## paths)
## paths <- unique(normalizePath(paths[file.exists(paths)]))
## paths <- paths[dir.exists(file.path(paths, "data"))]
## dataExts <- tools:::.make_file_exts("data")
## if (length(names) == 0L) {
## db <- matrix(character(), nrow = 0L, ncol = 4L)
## for (path in paths) {
## entries <- NULL
## packageName <- if (file_test("-f", file.path(path,
## "DESCRIPTION")))
## basename(path)
## else "."
## if (file_test("-f", INDEX <- file.path(path, "Meta",
## "data.rds"))) {
## entries <- readRDS(INDEX)
## }
## else {
## dataDir <- file.path(path, "data")
## entries <- tools::list_files_with_type(dataDir,
## "data")
## if (length(entries)) {
## entries <- unique(tools::file_path_sans_ext(basename(entries)))
## entries <- cbind(entries, "")
## }
## }
## if (NROW(entries)) {
## if (is.matrix(entries) && ncol(entries) == 2L)
## db <- rbind(db, cbind(packageName, dirname(path),
## entries))
## else warning(gettextf("data index for package %s is invalid and will be ignored",
## sQuote(packageName)), domain = NA, call. = FALSE)
## }
## }
## colnames(db) <- c("Package", "LibPath", "Item", "Title")
## footer <- if (missing(package))
## paste0("Use ", sQuote(paste("data(package =", ".packages(all.available = TRUE))")),
## "\n", "to list the data sets in all *available* packages.")
## else NULL
## y <- list(title = "Data sets", header = NULL, results = db,
## footer = footer)
## class(y) <- "packageIQR"
## return(y)
## }
## paths <- file.path(paths, "data")
## for (name in names) {
## found <- FALSE
## for (p in paths) {
## tmp_env <- if (overwrite)
## envir
## else new.env()
## if (file_test("-f", file.path(p, "Rdata.rds"))) {
## rds <- readRDS(file.path(p, "Rdata.rds"))
## if (name %in% names(rds)) {
## found <- TRUE
## if (verbose)
## message(sprintf("name=%s:\t found in Rdata.rds",
## name), domain = NA)
## thispkg <- sub(".*/([^/]*)/data$", "\\1", p)
## thispkg <- sub("_.*$", "", thispkg)
## thispkg <- paste0("package:", thispkg)
## objs <- rds[[name]]
## lazyLoad(file.path(p, "Rdata"), envir = tmp_env,
## filter = function(x) x %in% objs)
## break
## }
## else if (verbose)
## message(sprintf("name=%s:\t NOT found in names() of Rdata.rds, i.e.,\n\t%s\n",
## name, paste(names(rds), collapse = ",")),
## domain = NA)
## }
## if (file_test("-f", file.path(p, "Rdata.zip"))) {
## warning("zipped data found for package ", sQuote(basename(dirname(p))),
## ".\nThat is defunct, so please re-install the package.",
## domain = NA)
## if (file_test("-f", fp <- file.path(p, "filelist")))
## files <- file.path(p, scan(fp, what = "", quiet = TRUE))
## else {
## warning(gettextf("file 'filelist' is missing for directory %s",
## sQuote(p)), domain = NA)
## next
## }
## }
## else {
## files <- list.files(p, full.names = TRUE)
## }
## files <- files[grep(name, files, fixed = TRUE)]
## if (length(files) > 1L) {
## o <- match(fileExt(files), dataExts, nomatch = 100L)
## paths0 <- dirname(files)
## paths0 <- factor(paths0, levels = unique(paths0))
## files <- files[order(paths0, o)]
## }
## if (length(files)) {
## for (file in files) {
## if (verbose)
## message("name=", name, ":\t file= ...", .Platform$file.sep,
## basename(file), "::\t", appendLF = FALSE,
## domain = NA)
## ext <- fileExt(file)
## if (basename(file) != paste0(name, ".", ext))
## found <- FALSE
## else {
## found <- TRUE
## zfile <- file
## zipname <- file.path(dirname(file), "Rdata.zip")
## if (file.exists(zipname)) {
## Rdatadir <- tempfile("Rdata")
## dir.create(Rdatadir, showWarnings = FALSE)
## topic <- basename(file)
## rc <- .External(C_unzip, zipname, topic,
## Rdatadir, FALSE, TRUE, FALSE, FALSE)
## if (rc == 0L)
## zfile <- file.path(Rdatadir, topic)
## }
## if (zfile != file)
## on.exit(unlink(zfile))
## switch(ext, R = , r = {
## library("utils")
## sys.source(zfile, chdir = TRUE, envir = tmp_env)
## }, RData = , rdata = , rda = load(zfile,
## envir = tmp_env), TXT = , txt = , tab = ,
## tab.gz = , tab.bz2 = , tab.xz = , txt.gz = ,
## txt.bz2 = , txt.xz = assign(name, read.table(zfile,
## header = TRUE, as.is = FALSE), envir = tmp_env),
## CSV = , csv = , csv.gz = , csv.bz2 = ,
## csv.xz = assign(name, read.table(zfile,
## header = TRUE, sep = ";", as.is = FALSE),
## envir = tmp_env), found <- FALSE)
## }
## if (found)
## break
## }
## if (verbose)
## message(if (!found)
## "*NOT* ", "found", domain = NA)
## }
## if (found)
## break
## }
## if (!found) {
## warning(gettextf("data set %s not found", sQuote(name)),
## domain = NA)
## }
## else if (!overwrite) {
## for (o in ls(envir = tmp_env, all.names = TRUE)) {
## if (exists(o, envir = envir, inherits = FALSE))
## warning(gettextf("an object named %s already exists and will not be overwritten",
## sQuote(o)))
## else assign(o, get(o, envir = tmp_env, inherits = FALSE),
## envir = envir)
## }
## rm(tmp_env)
## }
## }
## invisible(names)
## }
## <bytecode: 0x7f98058c2ea8>
## <environment: namespace:utils>
knitr::include_graphics("MOLAM0001.png",dpi=NA)
(ref:molam1image2)